home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fontro / font.gbl < prev    next >
Encoding:
Text File  |  1991-11-20  |  4.0 KB  |  107 lines
  1. DefInt A-Z
  2.  
  3. '  Logical Font
  4. Global Const LF_FACESIZE = 32
  5.  
  6. Type LOGFONT
  7.     lfHeight As Integer
  8.     lfWidth As Integer
  9.     lfEscapement As Integer
  10.     lfOrientation As Integer
  11.     lfWeight As Integer
  12.     lfItalic As String * 1
  13.     lfUnderline As String * 1
  14.     lfStrikeOut As String * 1
  15.     lfCharSet As String * 1
  16.     lfOutPrecision As String * 1
  17.     lfClipPrecision As String * 1
  18.     lfQuality As String * 1
  19.     lfPitchAndFamily As String * 1
  20.     lfFaceName As String * LF_FACESIZE
  21. End Type
  22.  
  23. Global Const OUT_DEFAULT_PRECIS = 0
  24. Global Const OUT_STRING_PRECIS = 1
  25. Global Const OUT_CHARACTER_PRECIS = 2
  26. Global Const OUT_STROKE_PRECIS = 3
  27.  
  28. Global Const CLIP_DEFAULT_PRECIS = 0
  29. Global Const CLIP_CHARACTER_PRECIS = 1
  30. Global Const CLIP_STROKE_PRECIS = 2
  31.  
  32. Global Const DEFAULT_QUALITY = 0
  33. Global Const DRAFT_QUALITY = 1
  34. Global Const PROOF_QUALITY = 2
  35.  
  36. Global Const DEFAULT_PITCH = 0
  37. Global Const FIXED_PITCH = 1
  38. Global Const VARIABLE_PITCH = 2
  39.  
  40. Global Const ANSI_CHARSET = 0
  41. Global Const SYMBOL_CHARSET = 2
  42. Global Const SHIFTJIS_CHARSET = 128
  43. Global Const OEM_CHARSET = 255
  44.  
  45. '  Font Families
  46. '
  47. Global Const FF_DONTCARE = 0    '  Don't care or don't know.
  48. Global Const FF_ROMAN = 16  '  Variable stroke width, serifed.
  49.  
  50. '  Times Roman, Century Schoolbook, etc.
  51. Global Const FF_SWISS = 32  '  Variable stroke width, sans-serifed.
  52.  
  53. '  Helvetica, Swiss, etc.
  54. Global Const FF_MODERN = 48 '  Constant stroke width, serifed or sans-serifed.
  55.  
  56. '  Pica, Elite, Courier, etc.
  57. Global Const FF_SCRIPT = 64 '  Cursive, etc.
  58. Global Const FF_DECORATIVE = 80 '  Old English, etc.
  59.  
  60. '  Font Weights
  61. Global Const FW_DONTCARE = 0
  62. Global Const FW_THIN = 100
  63. Global Const FW_EXTRALIGHT = 200
  64. Global Const FW_LIGHT = 300
  65. Global Const FW_NORMAL = 400
  66. Global Const FW_MEDIUM = 500
  67. Global Const FW_SEMIBOLD = 600
  68. Global Const FW_BOLD = 700
  69. Global Const FW_EXTRABOLD = 800
  70. Global Const FW_HEAVY = 900
  71.  
  72. Global Const FW_ULTRALIGHT = FW_EXTRALIGHT
  73. Global Const FW_REGULAR = FW_NORMAL
  74. Global Const FW_DEMIBOLD = FW_SEMIBOLD
  75. Global Const FW_ULTRABOLD = FW_EXTRABOLD
  76. Global Const FW_BLACK = FW_HEAVY
  77.  
  78. Declare Function CreateFont% Lib "GDI" (ByVal H%, ByVal W%, ByVal E%, ByVal O%, ByVal W%, ByVal I%, ByVal U%, ByVal S%, ByVal C%, ByVal OP%, ByVal CP%, ByVal Q%, ByVal PAF%, ByVal F$)
  79. Declare Function CreateFontIndirect Lib "GDI" (lpLogFont As LOGFONT) As Integer
  80. Declare Function SelectObject Lib "GDI" (ByVal hDC%, ByVal Object%) As Integer
  81. Declare Function TextOut Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal Text$, ByVal nCount%) As Integer
  82. Declare Sub DeleteObject Lib "GDI" (ByVal Object%)
  83. Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC%, ByVal nIndex%) As Integer
  84. Declare Function GetTextFace Lib "GDI" (ByVal hDC As Integer, ByVal nCount As Integer, ByVal lpFacename As String) As Integer
  85.  
  86.  
  87. Global Const TEXTCAPS = 34  '  Text capabilities
  88.  
  89. '  Text Capabilities
  90. Global Const TC_OP_CHARACTER = &H1  '  Can do OutputPrecision   CHARACTER
  91. Global Const TC_OP_STROKE = &H2     '  Can do OutputPrecision   STROKE
  92. Global Const TC_CP_STROKE = &H4     '  Can do ClipPrecision     STROKE
  93. Global Const TC_CR_90 = &H8         '  Can do CharRotAbility    90
  94. Global Const TC_CR_ANY = &H10       '  Can do CharRotAbility    ANY
  95. Global Const TC_SF_X_YINDEP = &H20  '  Can do ScaleFreedom      X_YINDEPENDENT
  96. Global Const TC_SA_DOUBLE = &H40    '  Can do ScaleAbility      DOUBLE
  97. Global Const TC_SA_INTEGER = &H80   '  Can do ScaleAbility      INTEGER
  98. Global Const TC_SA_CONTIN = &H100   '  Can do ScaleAbility      CONTINUOUS
  99. Global Const TC_EA_DOUBLE = &H200   '  Can do EmboldenAbility   DOUBLE
  100. Global Const TC_IA_ABLE = &H400     '  Can do ItalisizeAbility  ABLE
  101. Global Const TC_UA_ABLE = &H800     '  Can do UnderlineAbility  ABLE
  102. Global Const TC_SO_ABLE = &H1000    '  Can do StrikeOutAbility  ABLE
  103. Global Const TC_RA_ABLE = &H2000    '  Can do RasterFontAble    ABLE
  104. Global Const TC_VA_ABLE = &H4000    '  Can do VectorFontAble    ABLE
  105. Global Const TC_RESERVED = &H8000
  106.  
  107.